home *** CD-ROM | disk | FTP | other *** search
- /B{bind D}bind D/L{load}B/dec{1 sub}B/gs{gsave}D/gr{grestore}D/tr{translate}D/rl{rlineto}B /r{rotate}D/g{setgray}D/s{stroke}D systemdict/arct known not{/arct{arcto 4{pop}repeat}B}if/   /_R{.25 sub round .25 add}D{/ashow L}B/_r{transform _R exch _R exch itransform}D/l{_r lineto}D /m{_r moveto}D /c{_r curveto}D /v{currentpoint 6 2 roll _r curveto}D /w{setlinewidth}D /S{show}D /E{exch}D /F{fill}D /ff{findfont E scalefont setfont}D /R{m gs/RF ff(Æ)S gr}D /M{length dec}B/ {{0 1 2 index M{2 copy get dup 8#141 ge{8#040 sub 2 index 3 1 roll put}{pop pop}ifelse}for}}B /Z{findfont begin currentdict dup length dict begin {1 index/FID ne{D}{pop pop}ifelse}forall /FontName E D dup length 0 ne{/Encoding Encoding 256 array copy D 0 E{dup type /nametype eq{Encoding 2 index 2 index put pop 1 add}{E pop}ifelse}forall}if pop currentdict dup end end/FontName get E definefont pop}D [174/registered] /RF /Helvetica Z/ashow  /cS{dup stringwidth pop -2 div 0 rmoveto S}B/leftShow{dup stringwidth pop neg 0 rmoveto S}B /$ctxt 16 dict D $ctxt begin/π 3.1415923 D/fang{stringwidth pop 2 div 2 xrds mul π mul div 360 mul}B /Oshr{/hg 1 index fang D gs hg neg r rds 0 tr -90 r dup stringwidth pop -2 div 0 m S gr hg -2 mul r}B /Ishr{/hg 1 index fang D gs hg r rds 0 tr 90 r dup stringwidth pop -2 div 0 m S gr hg 2 mul r}B /Otxt{$ctxt begin/rds E D E/xrds rds 3 -1 roll 12 div add D gs 1 index fang add r{1 string dup 0 4 -1 roll put Oshr}forall gr end}B /Itxt{$ctxt begin/rds E D E/xrds rds 3 -1 roll 3 div sub D gs 1 index fang sub r{1 string dup 0 4 -1 roll put Ishr}forall gr end}B userdict begin[  /box{/cnr E D/sidy E D/sidx E D/lly E D/llx E D newpath llx cnr add lly m llx sidx add lly 2 copy sidy add cnr arct llx sidx add lly sidy add llx 1 index cnr arct llx lly sidy add llx lly cnr arct llx lly llx sidx add lly cnr arct s}B(exec)cvn L    /ofst .5 D]cvx B/calc{dup stringwidth pop ( ) stringwidth pop add 1 index length ofst mul add}B /ss1 100 string D/cv{ss1 cvs}B/rm 146.5 360 add D/cx0 146.5 D/cxi{/cx cx0 D}B/cxa{/cx E cx add D}B /cy0{/cy E D}B/cy1{/cy cy 11 sub D}B/cy2{/cy cy 20 sub D}B/cx# 141.5 D /mf{findfont E makefont setfont}D /Times-Roman findfont dup length 6 add dict begin {1 index dup /FID eq exch /UniqueID eq or{pop pop}{def}ifelse}forall /Encoding /InternationalVec load def /CharStrings CharStrings dup length 50 add dict copy def /ArgArr [0 0 0] def /Str1 1 string def /UniqueID 44786 def /CompChar{4 -1 roll pop currentfont dup [ exch /FontMatrix get dup 0 get 1 exch div exch 0 exch 0 exch 3 get 1 exch div 0 0 ] makefont setfont ArgArr astore pop 0 GetIndex stringwidth pop 1 GetIndex stringwidth pop sub 2 div ArgArr 1 get /macron eq {110 add}if dup gsave 0 0 moveto 0 GetIndex true charpath ArgArr 2 get moveto 1 GetIndex true charpath 0 GetIndex stringwidth pathbbox grestore setcachedevice 0 0 moveto 0 GetIndex show ArgArr 2 get moveto 1 GetIndex show }def /GetIndex{Str1 dup 0 4 -1 roll ArgArr exch get currentfont/Encoding get 0 1 255{2 copy get 3 index eq{exit}{pop}ifelse}for 3 1 roll pop pop put}def CharStrings /Gbreve {/G /breve 210 CompChar}put CharStrings /gbreve {/g /breve 0 CompChar }put CharStrings /Idot {/I /dotaccent 230 CompChar}put CharStrings /Scedilla {/S /cedilla 0 CompChar}put CharStrings /scedilla {/s /cedilla 0 CompChar}put CharStrings /Cacute {/C /acute 220 CompChar}put CharStrings /cacute {/c /acute 0 CompChar}put CharStrings /Ccaron {/C /caron 210 CompChar}put CharStrings /ccaron {/c /caron 0 CompChar}put CharStrings /dmacron {/d /macron -40 CompChar}put /SymJam{exch pop /Symbol findfont 1000 scalefont setfont currentfont /Encoding get 0 1 255{2 copy get 3 index eq{exit}{pop}ifelse}for 3 1 roll pop pop ( ) dup 0 4 -1 roll put dup dup gsave 0 0 moveto true charpath stringwidth pathbbox grestore setcachedevice 0 0 moveto show}def CharStrings /notequal {/notequal SymJam}put CharStrings /infinity {/infinity SymJam}put CharStrings /lessequal {/lessequal SymJam}put CharStrings /greaterequal {/greaterequal SymJam}put CharStrings /partialdiff {/partialdiff SymJam}put CharStrings /summation {/summation SymJam}put CharStrings /product {/product SymJam}put CharStrings /pi {/pi SymJam}put CharStrings /integral {/integral SymJam}put CharStrings /Omega {/Omega SymJam}put CharStrings /radical {/radical SymJam}put CharStrings /approxequal {/approxequal SymJam}put CharStrings /Delta {/Delta SymJam}put CharStrings /blank {pop 830 0 0 0 810 810 setcachedevice 20 setlinewidth 10 10 moveto 790 10 lineto 790 790 lineto 10 790 lineto closepath stroke}put CharStrings /lozenge {/lozenge SymJam}put CharStrings /apple {/apple SymJam}put currentdict end /WorldFont exch definefont pop /°show{(\050)dup stringwidth pop cxa show dup length string dup 3 -1 roll 0 E putinterval {token{cv dup stringwidth pop dup cx add rm gt {cxi cy1 cx cy m cxa show ( ) dup stringwidth pop cxa show} {cxa show ( ) dup stringwidth pop cxa show} ifelse} {exit} ifelse}loop( ) stringwidth pop neg dup cxa 0 rmoveto (\051)dup stringwidth pop cxa show}B /•show{{token{dup type (stringtype) eq{°show}{cv dup stringwidth pop dup cx add rm gt {cxi cy1 cx cy m cxa show ( ) dup stringwidth pop cxa show} {cxa show ( ) dup stringwidth pop cxa show} ifelse}ifelse}{exit}ifelse}loop}D /*show{dup stringwidth pop 360 gt{cxi •show}{show}ifelse cy2}B systemdict/setpagedevice known{ 4 dict begin/PreRenderingEnhance true D/PostRenderingEnhance true D/PageSize[612 792]D /ImagingBBox[25 25 587 767]D/Policies 1 dict dup/PageSize 3 put D currentdict end setpagedevice}if systemdict/sethalftone known not{ /sethalftone{begin Frequency Angle/SpotFunction L end setscreen}B /currenthalftone{currentscreen 4 dict begin/HalftoneType 1 D/SpotFunction E D/Angle E D/Frequency E D currentdict end}B}if systemdict/execform known not{/execform{gs dup/PaintProc get exec gr}B}if /highres{currenthalftone dup length dict begin{D}forall/Frequency 106 D/Angle 45 D currentdict end sethalftone}B/lowres{currenthalftone dup length dict begin{D}forall/Frequency 53 D/Angle 45 D currentdict end sethalftone}B/bigpatch{g 77 77 moveto -154 0 rl 0 -154 rl 154 0 rl F}B /smallpatch{g 48 48 moveto -96 0 rl 0 -96 rl 96 0 rl F}B /row{gs{256 div 1 sub neg big{bigpatch}{smallpatch}ifelse 176 0 tr}forall gr 0 176 tr}B /tiles{gs sample3 row sample2 row sample1 row sample0 row gr}B /sample0 [3 6 9 12] D /sample1 [16 21 27 33] D /sample2 [40 48 57 67] D /sample3 [78 120 170 240] D /CalibPage 4 dict D CalibPage begin /FormType 1 D /Matrix matrix D /BBox [0 0 612 792] D /PaintProc{ pop gs 243 285 tr 72 300 div dup scale /big true D highres tiles /big false D lowres tiles gr gs -15 0 tr 12 /Helvetica-BoldOblique ff 121 673 m 10.5 0 statusdict begin product dup length string copy end ashow  [8.375 0 0 9.5 0 0] /WorldFont mf 175 cy0 [[(1.)s1][(2.)s2][(3.)s3][(4.)s4]]{cx# cy m dup 0 get leftShow cx0 cy m 1 get *show}forall gs 18 dup dup /WorldFont ff 321 552.75 tr s6 E 90 47.5 Otxt s7 E 270 47.5 2 index .45 mul add Itxt gr 28 /WorldFont ff 121 709 m statusdict begin 32 string printername end S 12 /Helvetica ff statusdict begin product end(LaserWriter)anchorsearch{pop pop 8 320 677.5 R}{pop}ifelse 8 88 671 R 24 /Symbol ff 67 671 m () S 5 /Helvetica ff 589 38 m s8 gs 90 r S gr cy 84 lt { 84 cy sub } { 0 } ifelse dup 85 E sub /ny E D 117 add /nh E D gs 0 w 231.1875 258.5 180 180 2.5 box 3.375 w 114 ny 414 nh 4.25 box 1 g 1.875 w 114 ny 414 nh 4 box gs 0 g 0 w 114 ny 414 nh 4 box gr 20 dup /WorldFont ff 125 202 2 copy m s5 calc gs 5 w 4 -1 roll add 3 -1 roll l s gr 0 g 0 w E -.3 mul ( ) stringwidth pop ofst add 2 div E rmoveto ofst E 0 E ashow gr 1 w 598 31 m 598 761 l 46 761 l 46 31 l 598 31 l s gr }D end
